home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / DOT46.ZIP / events.ini < prev    next >
INI File  |  1996-09-15  |  9KB  |  259 lines
  1. [Events]
  2. n0=1:on invite:#:{
  3. n1=  set %invite $chan
  4. n2=  echo 4 -s [dot] Invite detection - press control-F1 to join $chan
  5. n3=}
  6. n4=#ial start
  7. n5=+100:on join:#:{
  8. n6=  if $nick != $me goto end
  9. n7=  echo 4 $chan [dot] Updating IAL on $chan $+ ...
  10. n8=  unset % $+ $chan $+ *
  11. n9=  .timer 1 %test /set %chan $chan
  12. n10=  .timer 1 %test /whom $chan
  13. n11=  inc %test 10
  14. n12=  .timer 1 %test /dec %test 10
  15. n13=  if ($chan == %home && %pass == enabled ) { .timer 1 3 /passa }
  16. n14=  :end
  17. n15=}
  18. n16=+100:on part:#:{
  19. n17=  if $nick != $me goto endclear
  20. n18=  echo 4 -s [dot] Updated users on $chan
  21. n19=  unset % $+ $chan $+ *
  22. n20=  if ($chan == %home) { .timer1031 off }
  23. n21=  :endclear
  24. n22=}
  25. n23=+100:on kick:#:{
  26. n24=  if $nick != $me goto endclear
  27. n25=  echo 4 -s [dot] Updated users on $chan
  28. n26=  unset % $+ $chan $+ *
  29. n27=  if ($chan == %home) { .timer1031 off }
  30. n28=  :endclear
  31. n29=}
  32. n30=+100:on nick:/.ruser 100 $nick | /.auser 100 $newnick
  33. n31=#ial end
  34. n32=#iban start
  35. n33=1:on ban:#:if $banmask iswm $address($me,1) mode $chan -b $banmask
  36. n34=*+=99:on join:#:{
  37. n35=  if $level($maddress($address($nick,0))) == =99 {
  38. n36=    kick $chan $nick $read -s $+ $maddress($address($nick,0)) bans.txt
  39. n37=    mode $chan +b $maddress($address($nick,0)) 
  40. n38=  }
  41. n39=}
  42. n40=#iban end
  43. n41=#ftext disabled
  44. n42=;CAPS detection section modified from Another Despayre Production ⌐1996
  45. n43=*+1:on text:*:#:{
  46. n44=  if $level($nick) == 50 || ($nick isop $chan) goto end
  47. n45=  if ($len($parms) >= 200) { kick $chan $nick try typing something a bit shorter | goto end }
  48. n46=  set -q %x 1
  49. n47=  set -q %text $len($parms)
  50. n48=  if %text < 16 { goto donecap } 
  51. n49=  :letters
  52. n50=  if %x > %text { goto kicker } 
  53. n51=  if $asc($mid(%x,%text,$parms)) == $asc($upper($mid(%x,%text,$parms))) { inc %x | goto letters } 
  54. n52=  else { goto donecap } 
  55. n53=  :kicker
  56. n54=  ban -u10 $chan $nick 3
  57. n55=  kick $chan $nick dot CAPS detection - please use lowercase
  58. n56=  :donecap
  59. n57=  if (%tcount == 5) && ($address($nick,3) == %taddress) { 
  60. n58=    ban -u10 $chan $nick 2
  61. n59=    kick $chan $nick dot text flood detection - $site
  62. n60=  }
  63. n61=  else if (%taddress == $address($nick,3)) { 
  64. n62=    set %taddress $address($nick,3)
  65. n63=    inc %tcount
  66. n64=    .timer601 1 5 /unset %tcount 
  67. n65=  }
  68. n66=  else { 
  69. n67=    set %taddress $address($nick,3)
  70. n68=    set %tcount 1
  71. n69=    .timer601 1 5 /unset %tcount 
  72. n70=  }
  73. n71=  :end
  74. n72=}
  75. n73=*+1:on action:*:#:{
  76. n74=  if $level($nick) == 50 || ($nick isop $chan) goto end
  77. n75=  set -q %x 1
  78. n76=  set -q %text $len($parms)
  79. n77=  if %text < 16 { goto doneact } 
  80. n78=  :actions
  81. n79=  if %x > %text { goto kickact } 
  82. n80=  if $asc($mid(%x,%text,$parms)) == $asc($upper($mid(%x,%text,$parms))) { inc %x | goto actions } 
  83. n81=  else { goto doneact } 
  84. n82=  :kickact
  85. n83=  kick $chan $nick dot CAPS detection - please use lowercase
  86. n84=  ban -u8 $chan $nick 3
  87. n85=  :doneact
  88. n86=  if (%acount == 3) && ($address($nick,3) == %aaddress) { 
  89. n87=    kick $chan $nick dot action flood detection - $site 
  90. n88=    ban -u10 $chan $nick 2
  91. n89=  }
  92. n90=  else if (%aaddress == $address($nick,3)) { 
  93. n91=    set %aaddress $address($nick,3)
  94. n92=    inc %acount
  95. n93=    .timer602 1 5 /unset %acount 
  96. n94=  }
  97. n95=  else { 
  98. n96=    set %aaddress $address($nick,3)
  99. n97=    set %acount 1
  100. n98=    .timer602 1 5 /unset %acount 
  101. n99=  }
  102. n100=  :end
  103. n101=}
  104. n102=#ftext end
  105. n103=#fnick disabled
  106. n104=*+1:on nick {
  107. n105=  if $level($nick) == 50 goto end
  108. n106=  if (%ncount >= 2) && ($address($newnick,3) == %naddress) { 
  109. n107=    set %cnick 1
  110. n108=    :next
  111. n109=    if ($channel(%cnick) == $null || ($newnick isop $channel(%cnick))) { goto dkfnick }
  112. n110=    if $newnick ison $channel(%cnick) {
  113. n111=      kick $channel(%cnick) $nick Nick flood detection
  114. n112=      mode $channel(%cnick) +b $address($newnick,3)
  115. n113=    }
  116. n114=    inc %cnick
  117. n115=    goto next
  118. n116=    :dkfnick
  119. n117=    unset %cnick
  120. n118=  }
  121. n119=  else {
  122. n120=    if (%naddress == $address($newnick,3)) { 
  123. n121=      set %naddress $address($newnick,3)
  124. n122=      inc %ncount
  125. n123=      timer603 1 10 /unset %ncount 
  126. n124=    }
  127. n125=    else { 
  128. n126=      set %naddress $address($newnick,3)
  129. n127=      set %ncount 1
  130. n128=      timer603 1 10 /unset %ncount 
  131. n129=    }
  132. n130=  }  
  133. n131=  :end
  134. n132=}
  135. n133=#fnick end
  136. n134=#servermode start
  137. n135=*+1:on servermode:#:-spmilk+tn:/echo 4 $chan [dot] Servermode detection
  138. n136=#servermode end
  139. n137=#serverop start
  140. n138=*1:on serverop:%home: {
  141. n139=  if $level($maddress($address($opnick,0))) == $null { set %level 1 }
  142. n140=  else { set %level $level($maddress($address($opnick,0))) 
  143. n141=  }
  144. n142=  if %level  < 50 { 
  145. n143=    mode $chan -o $opnick
  146. n144=    echo 4 $chan [dot] Serverop detection 
  147. n145=  }
  148. n146=}
  149. n147=#serverop end
  150. n148=#messagelog start
  151. n149=1:on text:*:?:{
  152. n150=  .write -il1 msg.log $adate $timestamp * $+ $nick $+ ! $+ $address $+ * $parms
  153. n151=  set %messagelog $read -l7 msg.log
  154. n152=  if %messagelog != $null { write -dl7 msg.log } 
  155. n153=  :end
  156. n154=}
  157. n155=#messagelog end
  158. n156=#clonelow disabled
  159. n157=*+1:on join:#:{
  160. n158=  .auser 2 *!*@ $+ $site
  161. n159=  whois $nick
  162. n160=  .timer 1 12 /.ruser *!*@ $+ $site
  163. n161=}
  164. n162=*+2:on join:#:/.auser 3 *!*@ $+ $site
  165. n163=*+3:on join:#:{
  166. n164=  .auser 4 *!*@ $+ $site
  167. n165=  set %chan $chan
  168. n166=  mode $chan +mb *!*@ $+ $site
  169. n167=  kick $chan $nick dot clone detection
  170. n168=  sc $site
  171. n169=  unset -q %chan
  172. n170=  .timer 1 20 /mode $chan -m
  173. n171=}
  174. n172=*+4:on join:#:/kick $chan $nick dot clone detection
  175. n173=#clonelow end
  176. n174=#clonehigh disabled
  177. n175=+1:on join:#:{
  178. n176=  whois $nick
  179. n177=  if $me !isop $chan { goto endall } | else {
  180. n178=    set %clones 0
  181. n179=    set %join $address($nick,3)
  182. n180=    set %cloop 1
  183. n181=    set %cdone $nopnick(0,$chan)
  184. n182=  }
  185. n183=  :cloop
  186. n184=  if %cloop > %cdone goto endclone
  187. n185=  set %cnick $nopnick(%cloop,$chan)
  188. n186=  set %clonecheck $address(%cnick,3)
  189. n187=  if %clonecheck == %join inc %clones
  190. n188=  inc %cloop
  191. n189=  goto cloop
  192. n190=  :endclone
  193. n191=  if %clones < 3 goto endall
  194. n192=  set %chan $chan
  195. n193=  mode $chan +mb *!*@ $+ $site
  196. n194=  sc $site
  197. n195=  .timer911 1 10 /mode $chan -m
  198. n196=  :endall
  199. n197=}
  200. n198=#clonehigh end
  201. n199=#clonedot start
  202. n200=1:on join:#:{
  203. n201=  set %jtemp $chan $+ $site
  204. n202=  set %jtemp2 $site $+ $chan
  205. n203=  inc % [ $+ [ %jtemp2 ] ]
  206. n204=  if % [ $+ [ %jtemp2 ] ] == 1 /.timer 1 20 /unset % [ $+ [ %jtemp2 ] ]
  207. n205=  if % [ $+ [ %jtemp2 ] ] < 3 goto contclone
  208. n206=  if $level($address($nick,0)) == 50 goto endclone
  209. n207=  if $me isop $chan .timer 1 1 mode $chan +b *!*@ $+ $site
  210. n208=  if $me isop $chan .timer 1 1 kick $chan $nick dot clone detection
  211. n209=  :contclone
  212. n210=  inc % [ $+ [ %jtemp ] ]
  213. n211=  if % [ $+ [ %jtemp ] ] < 3 goto endclone
  214. n212=  if %filter == Yes goto endclone
  215. n213=  if $level($address($nick,0)) == 50 goto endclone
  216. n214=  set %filter Yes | /.timer 1 5 /set %filter No
  217. n215=  if $me isop $chan .timer 1 1 mode $chan +mb *!*@ $+ $site | .timer 1 10 /mode $chan -m
  218. n216=  if $me isop $chan .timer 1 1 kick $chan $nick dot clone detection - $site
  219. n217=  set %chan $chan
  220. n218=  if $me isop $chan .timer 1 1 sc $site
  221. n219=  :endclone
  222. n220=}
  223. n221=1:on part:#:{
  224. n222=  set %ptemp $chan $+ $site
  225. n223=  dec % [ $+ [ %ptemp ] ]
  226. n224=  if % [ $+ [ %ptemp ] ] < 1 unset % [ $+ [ %ptemp ] ]
  227. n225=}
  228. n226=1:on kick:#:{
  229. n227=  set %site $remove($address($knick,3),*!*@)
  230. n228=  set %ktemp $chan $+ %site
  231. n229=  dec % [ $+ [ %ktemp ] ]
  232. n230=  if % [ $+ [ %ktemp ] ] < 1 unset % [ $+ [ %ktemp ] ]
  233. n231=}
  234. n232=1:on quit:{
  235. n233=  set %chloop 1
  236. n234=  :chloop
  237. n235=  if %chloop > $channel(0) goto endchloop
  238. n236=  set %chan $channel(%chloop)
  239. n237=  set %qtemp %chan $+ $site
  240. n238=  if % [ $+ [ %qtemp ] ] >= 1 dec % [ $+ [ %qtemp ] ]
  241. n239=  if % [ $+ [ %qtemp ] ] < 1 unset % [ $+ [ %qtemp ] ]
  242. n240=  inc %chloop
  243. n241=  goto chloop
  244. n242=  :endchloop
  245. n243=}
  246. n244=#clonedot end
  247. n245=#homepass disabled
  248. n246=*50:on ctcpreply:%homepass:/pop 5 %home $nick
  249. n247=#homepass end
  250. n248=1:on chat:*?@ABCDEFGHIJKLMNOPQ*:/close -c $nick | /echo 4 -s [dot] ASCII character generator detected - DCC chat closed
  251. n249=#oper start
  252. n250=1:on snotice:*Client connecting*:/echo 4 Connecting: $parm6-7 | /halt 
  253. n251=1:on snotice:*Too many connections*:/halt
  254. n252=1:on snotice:*Client exiting*:/echo 3 Exiting: $parm6-15 | /halt
  255. n253=1:on snotice:*Received KILL*:/halt
  256. n254=1:on snotice:*Nick collision*:/halt
  257. n255=1:on snotice:*IP# Mismatch*:/halt
  258. n256=#oper end
  259.